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EDTSCHMENDWRD = find the end of a word Bese -1984 23:51: AX-11 Bliss-32 V4.0-74 Page 1. 
1278 08-1 3b $3:35:38 YeOT.SRE CHMENDWRD.BLI; ° a) | 
_ 0001 © XTITLE "EDTSCHMENDWRD = find the end of a word’ 
3 ¢ 0 § MODULE EDTSCHMENDWRD ( ! Find the end of a word 
3 ? st pDENT = 'v04-000' ! File: CHMENDWRD.BLI Edit: JBS1005 
E ~ 
a 2 BR? : BEGIN | 
E 7 097 ; PITITIIITITILILL LLL LLL LLL LLL LLL Li LiL LiL LiLiit iii | 
is 8 0 '® 
| 3 + 009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
| 3 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 1 Bata : :* ALL RIGHTS RESERVED. * 
2 ‘® * 
; ig 801 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 15 0015 1 !* INCLUSI THE ABOVE COPYRIGHT NOTICE. THI F RE OR AN THE % 
; 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; Bog ! TRANSFERRED. * 
. if ® 
: 0 oss 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT 70 CHANGE WITHOUT NOTICE % 
: 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN] * 
3 $§ pOe¢ : ‘* CORPORATION. . 
. if 
3 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
$ 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
can 0026 1 !* * 
$ e7 0027 1 !«# * | 
2 28 0028 1 Le EAA RE RERAREREAAAAAAAREEEEEAEAEAAEAEAAAEAEAAAAAAEAAAAEEAREAKEKKEEEE 
; 2 poe? 1! | 
5 0 0030 1 
; «(31 0031 1 !+4 : 
; 2 003¢ 1! FACILITY: EDT -- The DEC Standard Editor | 
; 3 0033 1! 
: 4 0034 1 ! ABSTRACT: 
5 ee 0035 1! ’ : 
; 3 sit] : : This module finds the end of the word entity. 
: $8 44 : ENVIRONMENT: Runs at any access mode - AST reentrant | 
: 40 0040 i AUTHOR: Bob Kushlis, CREATION DATE: Unknown | 
rie * 0048 1 | MODIFIED BY: 
: 63 0045 1! ; 
: 44 Bee 1 ! 1-001 = Original. DJS 04-Feb-1981. This module was created b 
; 45 45 1! entract ing the routine EDTSSFND_EWD from module CHANGE.BLI. 
: 66 Boog 1! 1-008 - Regularize headers. JBS 27-Feb-1981 
, 47 0047 1 ! 1-003 - Fix module name. JBS 02-Mar-1981 
48 0048 1! 1-208 - Add handling for new type of word. STS 23-Oct-1981 
4 inh ! 1-005 - Put WPS support under a conditional. JBS 10-Feb-1983 | 
F jee | 
51 1 


| 
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EDTSCHMENDWRD EDTSCHMENDWRD - find the end of a word 18.58 -1984 23:51: AX-11 Bliss-32 V4.0-742 Page | 
104"000 Declarations 14-Sep-1984 3:33:38 EDT.SRCICHMENDWRD.BLI;1 ~ (25 
3 098 ! RSBTTL "Declarations' 
; 054 1 ! TABLE OF CONTENTS: 
; Bpee 3 
3 00 § 1 
; Orbe ! REQUIRE "EDTSRC:TRAROUNAM'; 
: 0497 1 FORWARD ROUTINE d 
; 0498 1 EDTSSFND_EwD; ! Find the end of a word 
; 0499 1 
s 0500 1! 
; 0501 1 ! INCLUDE FILES: 
: B208 1! 
3 0503 1 
4 B286 : REQUIRE ‘EDTSRC:EDTREQ'; | 
: 0640 1 LIBRARY 'EDTSRC:SUPPORTS'; 
; 0641 1 
3 0642 1! 
; 064 1 ! MACROS: 
H 0644 1! 
: 0645 1! NONE 
; 0646 1! 
HY 0647 1 ! EQUATED SYMBOLS: 
; 0648 1! 
; 0649 1! NONE 
3 0650 1! 
3 0651 1 ! OWN STORAGE: 
; p63¢ 1! 
; 0655 1! NONE 
: 0654 1! 
; 0655 1 ! EXTERNAL REFERENCES: 
; 0656 1! 
; 0657 1! In the routine 
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EDTSCHMENDWRD EDTSCHMENDWRD ~- find the end of a word 1S-se 1984 23:51: AX=11 Bliss-32 V4.0-742 Page 3 E 
v04-000 EDTSSFND_EWD = find the end of a word 14S 5-19 4 13:32:38 LeDT SRCICHMENDWRD BL 171 : (3) V 
H Hy 0686 ! ZSBTTL “EDTSSFND_EWD = find the end of a word' ‘ 
; 660 1 GLOBAL ROUTINE EDTSSFND_EwD ! Find the end of a word ‘ 
+ 91 0661 1 = ° 
; 85 0662 1 ; 
ee . 0665 1 !++ : 
; 1% 0664 1 ' FUNCTIONAL DESCRIPTION: ; 
; 0665 1! ; 
; Bees 7% Find the end of a word. ‘ 
se -4 or 1! : 
; 0668 1 ! The number of characters between the cursor and the end of the word ‘ 
; . 0669 1! is returned. : 
: 100 0670 1! : 
; 101 0671 1 ! FORMAL PARAMETERS: ; 
; 106 0672 1! : 
; 10 0675 1! NONE : 
> 104 0674 1! : 
3 105 0675 1 ! IMPLICIT INPUTS: ; 
: 106 0676 1! : 
3 tor 0677 1! EDTSSA_US_ENT ; 
; 108 0678 1! EDTSST_LN_ BUF : 
; 109 0679 1! EDTSS$G_WRBTYP : 
; 110 0680 1! EDTSSA_LN_PTR : 
3; 6111 0681 1! ; 
: ie 0682 1 ! IMPLICIT OUTPUTS: : 
: 69S 0685 1! ; 
: (114 0684 1! NONE : 
s 39% 0685 1! 
s 1% 0686 1 ! ROUTINE VALUE 
3 I7 0687 1! 
3 ing bees : } The number of characters between the cursor and the end of the word. 
3 120 0690 1 ! SIDE EFFECTS: 
:. $2 0691 1! 
: \¢¢ 0692 1! NONE 
“ee. 0693 1! 
: 126 0694 1 !-- 
s «Nes 0695 1 
: 126 0696 BEGIN 
3; ter 0697 
; 128 0698 EXTERNAL ROUTINE ; ; ; ie 
; 129 0699 EDTSSTST_ENTDELIM, ! Determine if the current character is an entity delimiter 
: 130 0700 EDTS$CS_RIGHT; ! Move right a character 
; 13 701 § 
;. tm 70 EXTERNAL . : nay 
3 153 070 § EDTSSA_US_ENT : VECTOR, ! Pointers to user defined entities 
3: «134 0704 EDTSST_LN_BUF, ! Current Line buffer 
: «135 0705 2 
: 136 L 0706 2 ZIF SUPPORT_WPS 
3; «137 0707 T geor yi 
: «#138 0708 EDTSS$G_WRDTYP, ! indicates whether delimiters are words 
3; «139 0709 tFI 
: 140 0710 é 
; (161 0711 EDTSSA_LN_PTR; ! Current character pointer 
3 ba 4h 
7 (14 4 LOCAL 
3 (146 714 SIZE; 
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: 
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SIZE = 0; 
Scan up to a delimiter. 


cong Py EDTSSTST_ENTDELIM (.EDTSS$A_US_ENT [0J)) DO 


IF NOT EDTSSCS_RIGHT () THEN EXITLOOP; 
SIZE = .SIZE + 1; 
END; 

'¢ 


i if the delimiter was a space, or there were no characters before the 
delimiter, then scan past all trailing spaces (but do not cross a line). 


%1F SUPPORT_WPS 
XTHEN 


IF (,.EDTSS$G_WRDTYP EQL DELIMITED) 
THEN 
aFI 
BEGIN 
eo EQL 0) OR (CHSRCHAR (.EDTSSA_LN_PTR) EQL 2C* ')) 


DO 
BEGIN 
EDT$$CS_RIGHT (); 
Size = SIZE + 1; 
UNTIL (CHSPTR_EQL (.EDTS$SA_LN_PTR, CHSPTR (EDTS$$T_LN_BUF)) OR 
(CHSRCHAR™(.EDTS$A_LN_PTRY NEQ XC" ')); 
END 


ZIF SUPPORT_WPS 
ZTHEN 
'¢ 
: Delimiters are not considered words so pass over any delimiters 
BEGIN 
la EQL 0) OR (EDTSSTST_ENTDELIM (.EDTSSA_US_ENT [0])) 


BEGIN 
IF NOT EDTSSCS_RIGHT () THEN EXITLOOP; 
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EDTSCHMENDWRD EDTSCHMENDWRD - find the end of a word 18-sep 4 AX-11 Bliss-32 v4.0-74 P E 
v04-000 EDTSSFND_EWD = find the end of a word 14-Se 71982 $3:3) :38 NT SREICHREWSUND bu r04 Mes: (33 | 
: 20 0772 4 =, +1; 
; Of i UNTIL ( NOT EDTSSTST_ENTDELIM (.EDTSS$A_US_ENT [0J)); 
: 206 0776 END 
: 207 0777 3 XFI 
; 208 0778 
: 209 0779 g : 
: 210 0780 RETURN (.SIZE); 
; 211 0781 1 END; ! of routine EDTSSFND_EwWD 


«TITLE EDTSCHMENDWRD EDTSCHMENDWRD - find the end of a 
IDENT \v04-000\ 

~EXTRN edtssist ENTDELIM 

-EXTRN EDTSSCS_RIGHT, EDTSS$A_US_ENT 

.EXTRN ED DTSsi SEN BUF. EDTS$$G_wRBTYP 

-EXTRN EDTSS$A_LN_P 


-PSECT _EDTSCODE,NOWRT, SHR, PIC.2 


007¢ 00000 ENTRY EDISSEND EWD Saye R2,R3,R4.R5,R6 : 0660. 

56 000006006 00 9€ 00002 MOVAB EDTS$$A_US_ENT, : | 
55 000000006 00 9€ 00009 MOVAB EO TSSany NBT’ RS : 
54 000000006 00 9E 00010 MOVAB EDTSSTST RENTDELIR. RG : 

53 000000006 00 9€ 00017 MOVAB EDTSSCS_RIGHT, R3 : | 

52 D4 OOOTE CLRL = SIZE : 0716 

66 DD 00020 1$ PUSHL EDTS$$A_US : 0721, 

64 01 FB 00022 CALLS #1, EDTSSTST ENTDELIM 3 

OA 50 £8 00025 BLBS RO. 2$ : 

63 00 FB 00028 CALLS #0. EDTS$S$CS_RIGHT : 0724. 

04 50 €9 0002B BLBC = RO. 2$ : 

52 06 000¢E INCL SIZE > 0726. 

EE 11 00030 BRB 1$ 0721 | 

000000006 60 D5 00032 2s: TSTL  EDT$$G_WRDTYP : 0737) 

27 12 00038 BNEQ © 4$ : 

2 d5 0003A TSTL SIZE : 0743 | 

08 13 0003Cc BEQL 46s 3$ : | 
50 65 DO 0003E MOVL EDTS$SA LN_PTR, RO : 
20 60 91 00041 CMPB ss (RO),,_ B32 : 
31 12 00044 BNEQ 7$ : 

63 0 FB 00046 3$: CALLS #0, EDT$S$CS_RIGHT > 0748 

D6 4 INCL SIZE : 0749 

51 6 D0 00048 MOVL EDTSSA _LN_PTR, R1 : 0751 
50 000000006 00 9€ OO04E MOVAB EDTS$T“LN7BUF. RO : 
50 51 D1 0005 CMPL R1, RO™ : 
1D 13 00058 BEQL «6s 7$ : 

20 61 91 0005A CMPB Ss (R11), #32 : 0752 
E7 13 9005 BEQL 33 : 

16 11 0005F BRB a : 0737) 

38 D3 00061 4$: TSTL SIZE > 0764. 
08 1 0065 BEQL 6s 6$ : 
66 DD 006 S$: PUSHL EDT$$A_US_ENT : 
64 or FB 0067 CALLS #1, EDTSSTST_ENTDELIN : 
OA 0 €9 O006A LBC ~—s«aRO.. 7S : 


oe 
EDTSCHMENDWRD EDTSCHMENDWRD - find the end of a word 15-Sep-1984 23:51:3 AX-11 Bliss-32 V4.0-742 Pa E 
v04-000 EDTSSFND_EWD = find the end of a word raat 2 33:38 LED T SREICHMENDWND BL 124 aa (38 V 

63 00 FB 00060 6$ LLS #0, EDTS$CS_RIGHT 3; 0770 

04 4 £9 BOO BLBC RO 8 “ : 

52 D6 00073 NCL SIZE : 0772) 

EE %1 00075 RB 5$ 3 0774) 

50 52 00 00077 7$: MOVL SIZE, RO ; 0780 

00 RET : 0781. 


; Routine Size: 123 bytes, Routine Base: _EDTSCODE + 0000 
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un Time : 
tee Fined 00:33.2 
Lines/CPU Min: 3707 
Lexemes/CPU-Min: 10584 
Memory Used: 82 pages 
Compication Complete 
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EDTSCHMENDWRD EDTSCHMENDWRD = find the end of a word 18-5 Sep-1984 AX-11 Bliss-32 V4.0-74 Page 7 E 
O+000 EDTSSFND_EWD = find the end of a word 14-Sep eats ri 93 33 3§ EDT. SRCICHMENDWRD.BLI; . (4) V 
> 215 7 4 1 END ! of module EDTSCHMENDWRD 3 
: 18 785 «(1 : 
: 21 0786 0 ELUDOM : 
; PSECT SUMMARY ; 
: Name Bytes Attributes | ; 
: _EDTSCODE 123. NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | ; 
H Library Statistics : 
SRR we oo a Pareto gee ee Syabol$ -o<<<<-- Pages Processing ; 
$ File Total ibeaed Percent Mapped Time : 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 2 0 40 00:00.2 : 
3; ~$255$DUA28:CEDT. SRC IPSECTS.L32;1 2 1 50 7 00:00.1 3 
; T$255$DUAZ8:CEDT. SRCISUPPORTS.L 52; 1 2 1 $0 5 00:00.1 ; 
; COMMAND QUALIFIERS 3 
; 8 hohe ete - INITIAL, OPTIMIZE) /NOTRACEBACK/LIS=LIS$:CHMENDWRD/OBJ=0BJ$:CHMENDWRD MSRC$:CHMENDWRD .BLI/UPDATE=(ENHS$:C 2 

Btae: 123 code + 0 data bytes | 2 
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